home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO023.dsk / M1.bas < prev    next >
BASIC Source File  |  2012-02-16  |  8KB  |  401 lines
  1. 1  HOME 
  2. 10  HGR : HCOLOR= 3
  3. 19  REM        draw  mirror
  4. 20  HPLOT 9,10 TO 9,155
  5. 21  HPLOT 10,10 TO 10,155
  6. 22  HPLOT 11,10 TO 11,155
  7. 29  REM       write Mirror
  8. 30 X% = 0:Y% = 6
  9. 31  GOSUB 11050
  10. 32  REM       i
  11. 33 X% = 7
  12. 34  GOSUB 10350
  13. 35  REM       r
  14. 36 X% = 10
  15. 37  GOSUB 10600
  16. 38  REM       r
  17. 39 X% = 16
  18. 40  GOSUB 10600
  19. 41  REM       o
  20. 42 X% = 22
  21. 43  GOSUB 10500
  22. 44  REM       r
  23. 45 X% = 28
  24. 46  GOSUB 10600
  25. 49  REM        Draw Perp
  26. 50  HPLOT 12,76 TO 130,76
  27. 51  HPLOT 12,77 TO 130,77
  28. 59  REM        Write Line Perp
  29. 60 X% = 138:Y% = 75
  30. 61  GOSUB 11000
  31. 62  REM      i
  32. 63 X% = 145
  33. 64  GOSUB 10350
  34. 65  REM      n
  35. 66 X% = 148
  36. 67  GOSUB 10450
  37. 68  REM      e
  38. 69 X% = 154
  39. 70  GOSUB 10150
  40. 71  REM      p after 7 spaces
  41. 72 X% = 163
  42. 73  GOSUB 10550
  43. 74  REM      e
  44. 75 X% = 169
  45. 76  GOSUB 10150
  46. 77  REM       r
  47. 78 X% = 175
  48. 79  GOSUB 10600
  49. 80  REM       p
  50. 81 X% = 181
  51. 82  GOSUB 10550
  52. 83  REM       e
  53. 84 X% = 187
  54. 85  GOSUB 10150
  55. 86  REM        n
  56. 87 X% = 193
  57. 88  GOSUB 10450
  58. 89  REM        d
  59. 90 X% = 199
  60. 91  GOSUB 10100
  61. 92  REM        i
  62. 93 X% = 205
  63. 94  GOSUB 10350
  64. 95  REM         c
  65. 96 X% = 208
  66. 97  GOSUB 10050
  67. 98  REM        u
  68. 99 X% = 214
  69. 100  GOSUB 10700
  70. 101  REM       l
  71. 102 X% = 220
  72. 103  GOSUB 10400
  73. 104  REM       a
  74. 105 X% = 223
  75. 106  GOSUB 10000
  76. 107  REM       r
  77. 108 X% = 229
  78. 109  GOSUB 10600
  79. 110  REM        Draw Inc & Refl rays
  80. 111  HPLOT 107,9 TO 110,15
  81. 112  HPLOT 116,17 TO 111,15
  82. 113  REM          Inc ray
  83. 114  HPLOT 109,15 TO 12,75
  84. 115  REM          Refl ray
  85. 116  HPLOT 12,78 TO 109,138
  86. 117  REM          arrow
  87. 118  HPLOT 107,133 TO 109,138
  88. 119  HPLOT 106,134 TO 109,138
  89. 120  HPLOT 105,138 TO 109,138
  90. 121  HPLOT 104,137 TO 109,138
  91. 122  HPLOT 104,138 TO 109,138
  92. 130  REM       Write Incident Ray
  93. 131  REM       I
  94. 132 X% = 137:Y% = 15
  95. 133  GOSUB 10950
  96. 134  REM       n
  97. 135 X% = 143
  98. 136  GOSUB 10450
  99. 137  REM       c
  100. 138 X% = 149
  101. 139  GOSUB 10050
  102. 140  REM       i
  103. 141 X% = 155
  104. 142  GOSUB 10350
  105. 143  REM       d
  106. 144 X% = 158
  107. 145  GOSUB 10100
  108. 146  REM       e
  109. 147 X% = 164
  110. 148  GOSUB 10150
  111. 149  REM       n
  112. 150 X% = 170
  113. 151  GOSUB 10450
  114. 152  REM       t
  115. 153 X% = 176
  116. 154  GOSUB 10650
  117. 155  REM       Write Ray
  118. 156  REM       R & 7 spaces 
  119. 157 X% = 185
  120. 158  GOSUB 11100
  121. 159  REM       a
  122. 160 X% = 192
  123. 161  GOSUB 10000
  124. 162  REM       y
  125. 163 X% = 198
  126. 164  GOSUB 10850
  127. 170  REM       Write Refl Ray 
  128. 171  REM       R
  129. 172 X% = 138:Y% = 141
  130. 173  GOSUB 11100
  131. 174  REM      e
  132. 175 X% = 145
  133. 176  GOSUB 10150
  134. 177  REM      f
  135. 178 X% = 151
  136. 179  GOSUB 10200
  137. 180  REM      l
  138. 181 X% = 157
  139. 182  GOSUB 10400
  140. 183  REM      e
  141. 184 X% = 160
  142. 185  GOSUB 10150
  143. 186  REM      c
  144. 187 X% = 166
  145. 188  GOSUB 10050
  146. 189  REM      t
  147. 190 X% = 173
  148. 191  GOSUB 10650
  149. 192  REM      e
  150. 193 X% = 179
  151. 194  GOSUB 10150
  152. 195  REM      d
  153. 196 X% = 185
  154. 197  GOSUB 10100
  155. 200  REM        write Ray R
  156. 201 X% = 194
  157. 202  GOSUB 11100
  158. 203  REM        a
  159. 204 X% = 201
  160. 205  GOSUB 10000
  161. 206  REM       y
  162. 207 X% = 207
  163. 208  GOSUB 10850
  164. 220  REM      draw  angles  
  165. 221  HPLOT 20,70 TO 24,75
  166. 222  HPLOT 20,81 TO 24,76
  167. 230  REM        write angles
  168. 231  REM       write angles
  169. 232 X% = 32:Y% = 72
  170. 233  GOSUB 10900
  171. 234  REM       n
  172. 235 X% = 39
  173. 236  GOSUB 10450
  174. 237  REM       g
  175. 238 X% = 45
  176. 239  GOSUB 10250
  177. 240  REM       l
  178. 241 X% = 51
  179. 242  GOSUB 10400
  180. 243  REM  e
  181. 244 X% = 54
  182. 245  GOSUB 10150
  183. 246  REM      o and 7 spaces
  184. 247 X% = 63
  185. 248  GOSUB 10500
  186. 249  REM      f
  187. 250 X% = 69
  188. 251  GOSUB 10200
  189. 252  REM      inc and 7 spaces
  190. 253 X% = 77
  191. 254  GOSUB 10950
  192. 255  REM      n
  193. 256 X% = 83
  194. 257  GOSUB 10450
  195. 258  REM      c
  196. 259 X% = 89
  197. 260  GOSUB 10050
  198. 261  REM      i
  199. 262 X% = 95
  200. 263  GOSUB 10350
  201. 264  REM      d
  202. 265 X% = 98
  203. 266  GOSUB 10100
  204. 267  REM      e
  205. 268 X% = 104
  206. 269  GOSUB 10150
  207. 270  REM      n
  208. 271 X% = 110
  209. 272  GOSUB 10450
  210. 273  REM      c
  211. 274 X% = 116
  212. 275  GOSUB 10050
  213. 276  REM      e
  214. 277 X% = 122
  215. 278  GOSUB 10150
  216. 280  REM      write Ang of ref
  217. 281  REM      A
  218. 282 X% = 32:Y% = 88
  219. 283  GOSUB 10900
  220. 284  REM      n
  221. 285 X% = 39
  222. 286  GOSUB 10450
  223. 287  REM      g
  224. 288 X% = 45
  225. 289  GOSUB 10250
  226. 290  REM      l
  227. 291 X% = 51
  228. 292  GOSUB 10400
  229. 293  REM      e
  230. 294 X% = 54
  231. 295  GOSUB 10150
  232. 296  REM      of & 7 spaces
  233. 297 X% = 63
  234. 298  GOSUB 10500
  235. 299  REM      f
  236. 300 X% = 69
  237. 301  GOSUB 10200
  238. 302  REM      refl & 7 spaces
  239. 303 X% = 78
  240. 304  GOSUB 11100
  241. 305  REM      e
  242. 306 X% = 84
  243. 307  GOSUB 10150
  244. 308  REM      f
  245. 309 X% = 90
  246. 310  GOSUB 10200
  247. 311  REM      l
  248. 312 X% = 96
  249. 313  GOSUB 10400
  250. 314  REM      e
  251. 315 X% = 99
  252. 316  GOSUB 10150
  253. 317  REM      c
  254. 318 X% = 105
  255. 319  GOSUB 10050
  256. 320  REM      t
  257. 321 X% = 111
  258. 322  GOSUB 10650
  259. 323  REM      i
  260. 324 X% = 117
  261. 325  GOSUB 10350
  262. 326  REM      o
  263. 327 X% = 120
  264. 328  GOSUB 10500
  265. 329  REM      n
  266. 330 X% = 126
  267. 331  GOSUB 10450
  268. 7000  VTAB (21): PRINT "Press any key for an explanation."
  269. 7001  GET KY$: CALL 62450
  270. 7002  PRINT  CHR$(4);"run flat"
  271. 8000  END 
  272. 9999  REM     a
  273. 10000  HPLOT X%,Y% -1
  274. 10010  HPLOT X% +1,Y% TO X% +2,Y%
  275. 10020  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  276. 10030  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  277. 10040  HPLOT X% +3,Y% TO X% +3,Y% -3
  278. 10041  RETURN 
  279. 10049  REM     c
  280. 10050  HPLOT X%,Y% -1 TO X%,Y% -3
  281. 10060  HPLOT X% +1,Y% TO X% +3,Y%
  282. 10070  HPLOT X% +1,Y% -4 TO X% +3,Y% -4
  283. 10071  RETURN 
  284. 10099  REM     d
  285. 10100  HPLOT X%,Y% -1 TO X%,Y% -3
  286. 10110  HPLOT X% +1,Y% TO X% +2,Y%
  287. 10120  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  288. 10130  HPLOT X% +3,Y% TO X% +3,Y% -6
  289. 10131  RETURN 
  290. 10149  REM     e
  291. 10150  HPLOT X%,Y% -1 TO X%,Y% -3
  292. 10160  HPLOT X% +1,Y% TO X% +3,Y%
  293. 10170  HPLOT X% +1,Y% -2 TO X% +2,Y% -2
  294. 10180  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  295. 10190  HPLOT X% +3,Y% -3
  296. 10191  RETURN 
  297. 10199  REM     f
  298. 10200  HPLOT X%,Y% -3 TO X% +2,Y% -3
  299. 10210  HPLOT X% +1,Y% TO X% +1,Y% -5
  300. 10220  HPLOT X% +2,Y% -6 TO X% +3,Y% -6
  301. 10221  RETURN 
  302. 10249  REM     g
  303. 10250  HPLOT X%,Y% -1 TO X%,Y% -3
  304. 10260  HPLOT X% +1,Y% TO X% +2,Y%
  305. 10270  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  306. 10280  HPLOT X% +3,Y% +2 TO X% +3,Y% -3
  307. 10290  HPLOT X% +1,Y% +3 TO X% +2,Y% +3
  308. 10291  RETURN 
  309. 10299  REM     h
  310. 10300  HPLOT X%,Y% TO X%,Y% -6
  311. 10310  HPLOT X% +1,Y% -4, TO X% +1,Y% -4
  312. 10320  HPLOT X% +3,Y% TO X% +3,Y% -3
  313. 10321  RETURN 
  314. 10349  REM     i
  315. 10350  HPLOT X%,Y% TO X%,Y% -3
  316. 10360  HPLOT X%,Y% -5
  317. 10361  RETURN 
  318. 10399  REM     l
  319. 10400  HPLOT X%,Y% TO X%,Y% -6
  320. 10401  RETURN 
  321. 10449  REM     n
  322. 10450  HPLOT X%,Y% TO X%,Y% -4
  323. 10460  HPLOT X% +1,Y% -3
  324. 10470  HPLOT X% +2,Y% -4
  325. 10480  HPLOT X% +3,Y% TO X% +3,Y% -3
  326. 10481  RETURN 
  327. 10499  REM     o
  328. 10500  HPLOT X%,Y% -1 TO X%,Y% -3
  329. 10510  HPLOT X% +1,Y% TO X% +2,Y%
  330. 10520  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  331. 10530  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  332. 10531  RETURN 
  333. 10549  REM     p
  334. 10550  HPLOT X%,Y% +3 TO X%,Y% -4
  335. 10560  HPLOT X% +1,Y% TO X% +2,Y%
  336. 10570  HPLOT X% +1,Y% -4 TO X% +2,Y% -4
  337. 10580  HPLOT X% +3,Y% -1 TO X% +3,Y% -3
  338. 10581  RETURN 
  339. 10599  REM      r
  340. 10600  HPLOT X%,Y% TO X%,Y% -4
  341. 10610  HPLOT X% +1,Y% -3
  342. 10620  HPLOT X% +2,Y% -4 TO X% +3,Y% -4
  343. 10621  RETURN 
  344. 10649  REM      t
  345. 10650  HPLOT X%,Y% -4
  346. 10660  HPLOT X% +1,Y% TO X% +1,Y% -6
  347. 10670  HPLOT X% +2,Y% -4
  348. 10671  RETURN 
  349. 10699  REM      u
  350. 10700  HPLOT X%,Y% -1 TO X%,Y% -4
  351. 10710  HPLOT X% +1,Y%
  352. 10720  HPLOT X% +2,Y% -1
  353. 10730  HPLOT X% +3,Y% TO X% +3,Y% -4
  354. 10731  RETURN 
  355. 10749  REM      v
  356. 10750  HPLOT X%,Y% -2 TO X%,Y% -4
  357. 10760  HPLOT X% +1,Y% -1
  358. 10770  HPLOT X% +2,Y%
  359. 10780  HPLOT X% +3,Y% -1
  360. 10790  HPLOT X% +4,Y% -2 TO X% +4,Y% -4
  361. 10791  RETURN 
  362. 10799  REM      x
  363. 10800  HPLOT X%,Y% TO X% +4,Y% +4
  364. 10810  HPLOT X% +5,Y% TO X%,Y% -4
  365. 10811  RETURN 
  366. 10849  REM      y
  367. 10850  HPLOT X%,Y% -1 TO X%,Y% -4
  368. 10860  HPLOT X% +1,Y% TO X% +2,Y%
  369. 10870  HPLOT X% +3,Y% +2 TO X% +3,Y% -4
  370. 10880  HPLOT X% +2,Y% +3
  371. 10881  RETURN 
  372. 10899  REM       A
  373. 10900  HPLOT X%,Y% TO X%,Y% -4
  374. 10910  HPLOT X% +1,Y% -5 TO X% +2,Y% -6
  375. 10920  HPLOT X% +3,Y% -5
  376. 10930  HPLOT X% +1,Y% -2 TO X% +3,Y% -2
  377. 10940  HPLOT X% +4,Y% TO X% +4,Y% -4
  378. 10941  RETURN 
  379. 10949  REM      I
  380. 10950  HPLOT X% +1,Y% TO X% +3,Y%
  381. 10960  HPLOT X% +2,Y% -1 TO X% +2,Y% -5
  382. 10970  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  383. 10971  RETURN 
  384. 10999  REM       L
  385. 11000  HPLOT X%,Y% TO X%,Y% -6
  386. 11010  HPLOT X% +1,Y% TO X% +4,Y%
  387. 11011  RETURN 
  388. 11049  REM       M
  389. 11050  HPLOT X%,Y% TO X%,Y% -6
  390. 11060  HPLOT X% +1,Y% -5
  391. 11070  HPLOT X% +2,Y% -3 TO X% +2,Y% -5
  392. 11080  HPLOT X% +3,Y% -5
  393. 11090  HPLOT X% +4,Y% TO X% +4,Y% -6
  394. 11091  RETURN 
  395. 11099  REM       R
  396. 11100  HPLOT X%,Y% TO X%,Y% -6
  397. 11110  HPLOT X% +1,Y% -3 TO X% +3,Y% -3
  398. 11120  HPLOT X% +1,Y% -6 TO X% +3,Y% -6
  399. 11130  HPLOT X% +4,Y% -4 TO X% +4,Y% -5
  400. 11140  HPLOT X% +4,Y% TO X% +2,Y% -2
  401. 11141  RETURN